home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / CirclusMaximus™ / card_4281.txt < prev    next >
Text File  |  1991-03-02  |  2KB  |  112 lines
  1. -- card: 4281 from stack: in
  2. -- bmap block id: 4522
  3. -- flags: 4000
  4. -- background id: 2238
  5. -- name: Circle Segment
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   set numberFormat to <0.000000>
  9.  
  10.   --Calculate Arc AB
  11.   get ((pi*card field "Radius")/180)*card field "Degrees"
  12.   put it into card field "Arc AB"
  13.  
  14.   --Calculate Perimeter
  15.   get (((pi*card field "Radius")/180)*card field "Degrees")+ 2*card field "Radius"
  16.   put it into card field "Perimeter"
  17.  
  18.   --Calculate Area of Segment ABC
  19.   get (card field "Arc AB"*Card field "Radius")/2
  20.   put it into card field "Area of Segment ABC"
  21. end mouseUp
  22.  
  23.  
  24. -- part 1 (field)
  25. -- low flags: 00
  26. -- high flags: 0002
  27. -- rect: left=312 top=87 right=105 bottom=459
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 3
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Radius
  36.  
  37.  
  38. -- part 2 (field)
  39. -- low flags: 00
  40. -- high flags: 0002
  41. -- rect: left=312 top=110 right=128 bottom=444
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 3
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Degrees
  50.  
  51.  
  52. -- part 3 (field)
  53. -- low flags: 01
  54. -- high flags: 0004
  55. -- rect: left=310 top=180 right=199 bottom=457
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Arc AB
  64.  
  65.  
  66. -- part 4 (field)
  67. -- low flags: 01
  68. -- high flags: 0004
  69. -- rect: left=310 top=202 right=221 bottom=457
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Perimeter
  78.  
  79.  
  80. -- part 5 (field)
  81. -- low flags: 01
  82. -- high flags: 0004
  83. -- rect: left=302 top=244 right=263 bottom=449
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Area of Segment ABC
  92.  
  93.  
  94. -- part contents for card part 1
  95. ----- text -----
  96. .5
  97.  
  98. -- part contents for card part 2
  99. ----- text -----
  100. 90
  101.  
  102. -- part contents for card part 3
  103. ----- text -----
  104. 0.785398
  105.  
  106. -- part contents for card part 4
  107. ----- text -----
  108. 1.785398
  109.  
  110. -- part contents for card part 5
  111. ----- text -----
  112. 0.196350